home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / grafik / picview202 / rexx / picturecopy.rexx next >
OS/2 REXX Batch file  |  1996-06-24  |  689b  |  31 lines
  1. /******************************************************/
  2. /* PictureCopy.rexx $VER: 1.0 (24.06.96)  for PicView */
  3. /* (C) 1996 Holger Papajewski      papa@ami.boerde.de */
  4. /******************************************************/
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS "PICVIEW.1"
  8.  
  9. CALL ADDLIB('rexxreqtools.library',0,-30,0)
  10.  
  11. dir = rtfilerequest(,,'Select Destination For Pictures',,'rtfi_flags = freqf_nofiles' 'rtfi_initialpath = ""')
  12.  
  13. GETNEXTSELECT START
  14. num = result
  15. DO WHILE num ~= -1
  16.  
  17.   GETPICDATA num FILE
  18.   source = '"' || result || '"'
  19.   GETPICDATA num NAME
  20.   dest = '"' || dir || result || '"'
  21.  
  22.   ADDRESS COMMAND
  23.   'copy' source dest
  24.  
  25.   ADDRESS "PICVIEW.1"
  26.   GETNEXTSELECT
  27.   num = result
  28. END
  29.  
  30.  
  31.